home *** CD-ROM | disk | FTP | other *** search
/ Trading on the Edge / Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin / pc / mac_file / vendor_d / neuralwa / nw2v50 / somnomap.nnc < prev    next >
Text File  |  1993-08-23  |  2KB  |  53 lines
  1. csv3.8        ! Control Strategy Version 3.8
  2. !************************************************************************
  3. !*                                    *
  4. !*      2D Self-Organizing Map with no mapping                *
  5. !*                                    *
  6. !*    Assumes:    Input Layer                    *
  7. !*            2-D Kohonen Layer                *
  8. !*            Optional non-learning post-processing layers    *
  9. !*                                    *
  10. !************************************************************************
  11. !
  12. !    *** Recall ***
  13. !
  14. !MASK     label    op-code    operands    comment
  15. L_saR_sa    trace    aux3        !  set trace option to aux3
  16. L_saR_sa    cset    recall,1    !  recall count
  17. !
  18. L_saR_sa    lset    in        !  input layer
  19. L___R_sa    io    read        !  get input data
  20. L_saR___    io    lrnin        !  get input data
  21. L___R_sa     math    sum|rnoise|tran|output
  22. L_saR___     math    sum|lnoise|tran|output
  23. L_saR_sa    lset    cur,1        !  next layer, 2D Kohonen layer
  24. L_saR___     math    sum|output|fire    !  get min euclid dist. No transfer
  25.                                         !  function. Sum deals with this
  26.                                         !  and adds bias
  27. L___R_sa     math    sum|tran|output|fire    !  get min euclid dist
  28. L_saR___    math    learn|fire    ! update wts & freq est.
  29.  
  30. ! Now do post-processing layers if any exist
  31.  
  32. L_saR_sa    lcmp    out
  33. L_saR_sa    bge    @rslt        ! No layers after Kohonen
  34.  
  35. L_saR_sa @rloop    lset    cur,1           !  next layer
  36. L_saR_sa    math    sum|fire
  37. L_saR_sa    math    tran|output|e=0
  38. L_saR_sa    lcmp    out        ! at output layer ?
  39. L_saR_sa    blt    @rloop        ! loop till at output layer
  40.  
  41. L___R_sa @rslt    io    write        ! write out result
  42. L_saR___    io    lrnrslt         ! result of feed-forward
  43.  
  44. LisaRisa @exit    trace    0        !  turn off any trace function
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.